From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 23 Apr 2022 16:37:27 +0000 (+0200)
Subject: Fix elc.gz loading test some more
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~2370^2~341
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=fc00ecfce8852b0326c16d8a9f0ef2186e563435;p=emacs.git

Fix elc.gz loading test some more
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 1633f3b34cf..7d17fbde672 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -1844,6 +1844,7 @@ Prompt users for any modified buffer with `buffer-offer-save' non-nil."
       (should (documentation 'zot))
 
       (byte-compile-file el)
+      (fmakunbound 'foo)
       (should (load (concat pref ".elc") t))
       (should (fboundp 'foo))
       (should (documentation 'foo))
@@ -1851,6 +1852,7 @@ Prompt users for any modified buffer with `buffer-offer-save' non-nil."
       (should (documentation 'zot))
 
       (dired-compress-file (concat pref ".elc"))
+      (fmakunbound 'foo)
       (should (load (concat pref ".elc.gz") t))
       (should (fboundp 'foo))
       ;; This fails due to bug#12598.